home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailable.arc / ML2ENTR.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  768 b   |  25 lines
  1. * ML2ENTR.CMD
  2. NOTE - MAIL SYSTEM NAME AND ADDRESS ENTRY PROGRAM
  3. ERASE
  4. GO BOTTOM
  5. SET FORMAT TO ML2FMT.FMT
  6. DO WHILE T
  7.   STORE ' ' TO MTYPE
  8.   STORE '    ' TO MSORT,MEXPIRE
  9.   STORE '     ' TO MZIP
  10.   STORE '              ' TO MHPHONE,MWPHONE
  11.   STORE '                         ' TO MCITY:ST
  12.   STORE '                              ' TO MNAME,MORG,MSTREET
  13.   READ
  14.   IF MSORT = ' '
  15.     RETURN
  16.   ENDIF
  17.   APPEND BLANK
  18.   REPLACE SORT WITH MSORT
  19.   REPLACE NAME WITH MNAME,ORG WITH MORG
  20.   REPLACE STREET WITH MSTREET
  21.   REPLACE CITY:ST WITH MCITY:ST,ZIP WITH MZIP
  22.   REPLACE HPHONE WITH MHPHONE,WPHONE WITH MWPHONE
  23.   REPLACE EXPIRE WITH MEXPIRE, TYPE WITH MTYPE
  24. ENDDO
  25. DO ML2